//
// Testcases Send Replace with different sendgroups and examiners
//


//
// T E S T C A S E S
//


!+Tc09
    =>  -§{empty dossier}
        -preparation
            -*examiner2.CreateSendableAction."action211"
            -*examiner2.CheckAndSendAction."action211"
            -*examiner2.CreateSendableAction."action221"
            -*examiner2.CheckAndSendAction."action221"
            -*examiner2.CreateSendableAction."action231"
            -*examiner2.CheckAndSendAction."action231"
                =>  $actions := (action211, action221, action231)
        -test
            -*examiner1.CreateSendableAction."action115"    // Administrator helps
            -*examiner1.CheckAndSendAction."action115"
                =>  .$actions := (action115, action211, action221, action231)
                    .§{no prompting for sg2 or sg3 actions to delete}

!+Tc16
    =>  -§{empty dossier}
        -@examiner1.CreateSendableAction."action115"
        -*examiner1.CheckAndSendAction."action115"
            =>  .$actions := (action115)

!+Tc20
    =>  -§{empty dossier}
        -preparation
            -*examiner1.CreateSendableAction."action125"
            -*examiner1.CheckAndSendAction."action125"
            -*examiner1.CreateSendableAction."action135"
            -*examiner1.CheckAndSendAction."action135"
        -test
            -*examiner1.CreateSendableAction."action115"
            -*examiner1.CheckAndSendAction."action115"
                =>  -examiner1 << "Remove one or more sg2 or sg3 actions?"
                    -*examiner1.say."Keep all"
                        =>  .$actions := (action115, action125, action135)

!+Tc22
    =>  -§{empty dossier}
        -preparation
            -*examiner1.CreateSendableAction."action125"
            -*examiner1.CheckAndSendAction."action125"
            -*examiner1.CreateSendableAction."action135"
            -*examiner1.CheckAndSendAction."action135"
        -test
            -*examiner1.CreateSendableAction."action115"
            -*examiner1.CheckAndSendAction."action115"
                =>  -examiner1 << "Remove one or more sg2 or sg3 actions?"
                    -*examiner1.say."delete action125"
                        =>  .$actions := (action115, 135)

!+Tc22b
    =>  -§{empty dossier}
        -preparation
            -*examiner1.CreateSendableAction."action125"
            -*examiner1.CheckAndSendAction."action125"
            -*examiner1.CreateSendableAction."action135"
            -*examiner1.CheckAndSendAction."action135"
        -test
            -*examiner1.CreateSendableAction."action115"
            -*examiner1.CheckAndSendAction."action115"
                =>  -examiner1 << "Remove one or more sg2 or sg3 actions?"
                    -*examiner1.say."delete action135"
                        =>  .$actions := (action115, 125)

!+Tc22c
    =>  -§{empty dossier}
        -preparation
            -*examiner1.CreateSendableAction."action125"
            -*examiner1.CheckAndSendAction."action125"
            -*examiner1.CreateSendableAction."action135"
            -*examiner1.CheckAndSendAction."action135"
        -test
            -*examiner1.CreateSendableAction."action115"
            -*examiner1.CheckAndSendAction."action115"
                =>  -examiner1 << "Remove one or more sg2 or sg3 actions?"
                    -*examiner1.say."delete action125 and action135"
                        =>  .$actions := (action115)

!+Tc26
    =>  -§{empty dossier}
        -preparation
            -*examiner1.CreateSendableAction."action115"
            -*examiner1.CheckAndSendAction."action115"
                =>  .$actions := (action115)
            -§CONTINUE_NEXT_DAY
        -test
            -*examiner1.EditAction."action115"
            -*examiner1.CheckAndSendAction."action115"
                =>  .$actions := (action115)

!+Tc26b
    =>  -§{empty dossier}
        -preparation
            -*examiner1.CreateSendableAction."action115"
            -*examiner1.CheckAndSendAction."action115"
            -*examiner1.CreateSendableAction."action125"
            -*examiner1.CheckAndSendAction."action125"
            -*examiner1.CreateSendableAction."action135"
            -*examiner1.CheckAndSendAction."action135"
                =>  .$actions := (action115, action125, action135)
            -§CONTINUE_NEXT_DAY
        -test
            -*examiner1.EditAction."action115"
            -*examiner1.CheckAndSendAction."action115"
                =>  .$actions := (action115.NEW, action125, action135)

!+Tc32
    =>  -§{empty dossier}
        -preparation
            -*examiner1.CreateSendableAction."action115a"
            -*examiner1.CheckAndSendAction."action115a"
                =>  $actions := (action115a)
            -CONTINUE_NEXT_DAY
        -test
            -*examiner1.CreateSendableAction."action115"
            -*examiner1.CheckAndSendAction."action115"
                =>  $actions := (action115.NEW)

!+Tc36
    =>  -§{empty dossier}
        -preparation
            -*examiner1.CreateSendableAction."action115a"
            -*examiner1.CheckAndSendAction."action115a"
            -*examiner1.CreateSendableAction."action125"
            -*examiner1.CheckAndSendAction."action125"
            -*examiner1.CreateSendableAction."action135"
            -*examiner1.CheckAndSendAction."action135"
                =>  $actions := (action115a, action125, action135)
            -CONTINUE_NEXT_DAY
        -test
            -*examiner1.CreateSendableAction."action115"
            -*examiner1.CheckAndSendAction."action115"
                =>  -examiner1 << "Remove action125 or action135?"
                    -examiner1.say."Keep all"
                        =>  $actions := (action115.NEW, action125, action135)

!+Tc38a
    =>  -§{empty dossier}
        -preparation
            -*examiner1.CreateSendableAction."action115a"
            -*examiner1.CheckAndSendAction."action115a"
            -*examiner1.CreateSendableAction."action125"
            -*examiner1.CheckAndSendAction."action125"
            -*examiner1.CreateSendableAction."action135"
            -*examiner1.CheckAndSendAction."action135"
                =>  $actions := (action115a, action125, action135)
            -CONTINUE_NEXT_DAY
        -test
            -*examiner1.CreateSendableAction."action115"
            -*examiner1.CheckAndSendAction."action115"
                =>  -examiner1 << "Remove action125 or action135?"
                    -examiner1.say."Remove action125"
                        =>  $actions := (action115.NEW, action135)

!+Tc38b
    =>  -§{empty dossier}
        -preparation
            -*examiner1.CreateSendableAction."action115a"
            -*examiner1.CheckAndSendAction."action115a"
            -*examiner1.CreateSendableAction."action125"
            -*examiner1.CheckAndSendAction."action125"
            -*examiner1.CreateSendableAction."action135"
            -*examiner1.CheckAndSendAction."action135"
                =>  $actions := (action115a, action125, action135)
            -CONTINUE_NEXT_DAY
        -test
            -*examiner1.CreateSendableAction."action115"
            -*examiner1.CheckAndSendAction."action115"
                =>  -examiner1 << "Remove action125 or action135?"
                    -examiner1.say."Remove action135"
                        =>  $actions := (action115.NEW, action125)

!+Tc38c
    =>  -§{empty dossier}
        -preparation
            -*examiner1.CreateSendableAction."action115a"
            -*examiner1.CheckAndSendAction."action115a"
            -*examiner1.CreateSendableAction."action125"
            -*examiner1.CheckAndSendAction."action125"
            -*examiner1.CreateSendableAction."action135"
            -*examiner1.CheckAndSendAction."action135"
                =>  $actions := (action115a, action125, action135)
            -CONTINUE_NEXT_DAY
        -test
            -*examiner1.CreateSendableAction."action115"
            -*examiner1.CheckAndSendAction."action115"
                =>  -examiner1 << "Remove action125 or action135?"
                    -examiner1.say."Remove action125 and action135"
                        =>  $actions := (action115.NEW)


!+Tc38d                 // don't care about replacing action115 here. Test the list handling.
    =>  -§{empty dossier}
        -preparation
            -*examiner1.CreateSendableAction."action125a"
            -*examiner1.CheckAndSendAction."action125a"
            -*examiner1.CreateSendableAction."action125b"
            -*examiner1.CheckAndSendAction."action125b"
            -*examiner1.CreateSendableAction."action125c"
            -*examiner1.CheckAndSendAction."action125c"
            -*examiner1.CreateSendableAction."action135a"
            -*examiner1.CheckAndSendAction."action135a"
            -*examiner1.CreateSendableAction."action135b"
            -*examiner1.CheckAndSendAction."action135b"
            -*examiner1.CreateSendableAction."action135c"
            -*examiner1.CheckAndSendAction."action135c"
                =>  $actions := (action125a, action125b, action125c,
                                action135a, action135b, action135c)
        -test
            -*examiner1.CreateSendableAction."action115a"
            -*examiner1.CheckAndSendAction."action115a"
                =>  -examiner1 << "Remove one or more of action125x and action135x?"
                    -examiner1.say."Remove action125a, action125b, action135a"
                        =>  $actions := (action125c, action135b, action135c)
        -preparation
            -*examiner1.CreateSendableAction."action125d"
            -*examiner1.CheckAndSendAction."action125d"
            -*examiner1.CreateSendableAction."action125e"
            -*examiner1.CheckAndSendAction."action125e"
            -*examiner1.CreateSendableAction."action135d"
            -*examiner1.CheckAndSendAction."action135d"
        -test
            -*examiner1.CreateSendableAction."action115b"
            -*examiner1.CheckAndSendAction."action115b"
                =>  -examiner1 << "Remove one or more of action125x and action135x?"
                    -examiner1.say."Remove action125c, action135b, action135c"
                        =>  $actions := (action125d, action125e, action135d)
        -preparation
           -*examiner1.CreateSendableAction."action125f"
            -*examiner1.CheckAndSendAction."action125f"
            -*examiner1.CreateSendableAction."action135e"
            -*examiner1.CheckAndSendAction."action135e"
            -*examiner1.CreateSendableAction."action135f"
            -*examiner1.CheckAndSendAction."action135f"
        -test
            -*examiner1.CreateSendableAction."action115c"
            -*examiner1.CheckAndSendAction."action115c"
                =>  -examiner1 << "Remove one or more of action125x and action135x?"
                    -examiner1.say."Remove action125d, action125e, action125f"
                        =>  $actions := (action135d, action135e, action135f)

!+Tc44
    =>  -§{empty dossier}
        -preparation
            -*examiner1.CreateSendableAction."action111"
            -*examiner1.CheckAndSendAction."action111"
                =>  .$actions := (action111)
        -test
            -*examiner1.CreateSendableAction."action115"
            -*examiner1.CheckAndSendAction."action115"
                =>  .$actions := (action115)

!+Tc48
    =>  -§{empty dossier}
        -preparation
            -*examiner1.CreateSendableAction."action111"
            -*examiner1.CheckAndSendAction."action111"
            -*examiner1.CreateSendableAction."action125"
            -*examiner1.CheckAndSendAction."action125"
            -*examiner1.CreateSendableAction."action135"
            -*examiner1.CheckAndSendAction."action135"
                =>  .$actions := (action111, action125, action135)
        -test
            -*examiner1.CreateSendableAction."action115"
            -*examiner1.CheckAndSendAction."action115"
                =>  -examiner1 << "Remove one or more sg2 or sg3 actions?"
                    -examiner1.say."Keep all"
                        =>  $actions := (action115, action125, action135)

!+Tc50a
    =>  -§{empty dossier}
        -preparation
            -*examiner1.CreateSendableAction."action111"
            -*examiner1.CheckAndSendAction."action111"
            -*examiner1.CreateSendableAction."action125"
            -*examiner1.CheckAndSendAction."action125"
            -*examiner1.CreateSendableAction."action135"
            -*examiner1.CheckAndSendAction."action135"
                =>  .$actions := (action111, action125, action135)
        -test
            -*examiner1.CreateSendableAction."action115"
            -*examiner1.CheckAndSendAction."action115"
                =>  -examiner1 << "Remove one or more sg2 or sg3 actions?"
                    -examiner1.say."Remove action125"
                        =>  $actions := (action115, action135)

!+Tc50b
    =>  -§{empty dossier}
        -preparation
            -*examiner1.CreateSendableAction."action111"
            -*examiner1.CheckAndSendAction."action111"
            -*examiner1.CreateSendableAction."action125"
            -*examiner1.CheckAndSendAction."action125"
            -*examiner1.CreateSendableAction."action135"
            -*examiner1.CheckAndSendAction."action135"
                =>  .$actions := (action111, action125, action135)
        -test
            -*examiner1.CreateSendableAction."action115"
            -*examiner1.CheckAndSendAction."action115"
                =>  -examiner1 << "Remove one or more sg2 or sg3 actions?"
                    -examiner1.say."Remove action135"
                        =>  $actions := (action115, action125)


!+Tc50c
    =>  -§{empty dossier}
        -preparation
            -*examiner1.CreateSendableAction."action111"
            -*examiner1.CheckAndSendAction."action111"
            -*examiner1.CreateSendableAction."action125"
            -*examiner1.CheckAndSendAction."action125"
            -*examiner1.CreateSendableAction."action135"
            -*examiner1.CheckAndSendAction."action135"
                =>  .$actions := (action111, action125, action135)
        -test
            -*examiner1.CreateSendableAction."action115"
            -*examiner1.CheckAndSendAction."action115"
                =>  -examiner1 << "Remove one or more sg2 or sg3 actions?"
                    -examiner1.say."Remove action125 and action135"
                        =>  $actions := (action115)

!+Tc58
    =>  -§{empty dossier}
        -preparation
            -*examiner2.CreateSendableAction."action211"
            -*examiner2.CheckAndSendAction."action211"
            -*examiner2.CreateSendableAction."action221"
            -*examiner2.CheckAndSendAction."action221"
            -*examiner2.CreateSendableAction."action231"
            -*examiner2.CheckAndSendAction."action231"
                =>  $actions := (action211, action221, action231)
        -test
            -*examiner1.CreateSendableAction."action125"
            -*examiner1.CheckAndSendAction."action125"
                =>  .$actions := (action125, action211, action221, action231)

!+Tc62
    =>  -§{empty dossier}
        -*examiner1.CreateSendableAction."action125"
        -*examiner1.CheckAndSendAction."action125"
            =>  $actions := (action125)
 
!+Tc65
    =>  -§{empty dossier}
        -preparation
            -*examiner1.CreateSendableAction."action125"
            -*examiner1.CheckAndSendAction."action125"
                =>  .$actions := (action125)
            -§CONTINUE_NEXT_DAY
        -test
            -*examiner1.EditAction."action125"
            -*examiner1.CheckAndSendAction."action125"
                =>  $actions := (action125.NEW)

!+Tc68
    =>  -§{empty dossier}
        -preparation
            -*examiner1.CreateSendableAction."action125a"
            -*examiner1.CheckAndSendAction."action125a"
            -CONTINUE_NEXT_DAY
        -test
            -*examiner1.CreateSendableAction."action125"
            -*examiner1.CheckAndSendAction."action125"
                =>  .$actions := (action125.NEW)
!+Tc73
    =>  -§{empty dossier}
        -preparation
            -*examiner1.CreateSendableAction."action121"
            -*examiner1.CheckAndSendAction."action121"
                =>  $actions := (action121)
        -test
            -*examiner1.CreateSendableAction."action125"
            -*examiner1.CheckAndSendAction."action125"
                =>  -examiner1 << "Add or replace sg2 actions?"
                    -examiner1.say."Add"
                        =>  .$actions := (action121, action125)

!+Tc75a
    =>  -§{empty dossier}
        -preparation
            -*examiner1.CreateSendableAction."action121"
            -*examiner1.CheckAndSendAction."action121"
            -*examiner1.CreateSendableAction."action122"
            -*examiner1.CheckAndSendAction."action122"
                =>  .$actions := (action121, action122)
        -test
            -*examiner1.CreateSendableAction."action125"
            -*examiner1.CheckAndSendAction."action125"
                =>  -examiner1 << "Add or replace sg2 actions?"
                    -examiner1.say."Replace action122"
                        =>  .$actions := (action121, action125)

!+Tc75b
    =>  -§{empty dossier}
        -preparation
            -*examiner1.CreateSendableAction."action121"
            -*examiner1.CheckAndSendAction."action121"
            -*examiner1.CreateSendableAction."action122"
            -*examiner1.CheckAndSendAction."action122"
                =>  .$actions := (action121, action122)
        -test
            -*examiner1.CreateSendableAction."action125"
            -*examiner1.CheckAndSendAction."action125"
                =>  -examiner1 << "Add or replace sg2 actions?"
                    -examiner1.say."Replace action121 and action122"
                        =>  .$actions := (action125)

!+Tc83
    =>  -§{empty dossier}
        -preparation
            -*examiner2.CreateSendableAction."action211"
            -*examiner2.CheckAndSendAction."action211"
            -*examiner2.CreateSendableAction."action221"
            -*examiner2.CheckAndSendAction."action221"
            -*examiner2.CreateSendableAction."action231"
            -*examiner2.CheckAndSendAction."action231"
                =>  $actions := (action211, action221, action231)
        -test
            -*examiner1.CreateSendableAction."action135"
            -*examiner1.CheckAndSendAction."action135"
                =>  .$actions := (action135, action211, action221, action231)

!+Tc87
    =>  -§{empty dossier}
        -*examiner1.CreateSendableAction."action135"
        -*examiner1.CheckAndSendAction."action135"
            =>  $actions := (action135)

!+Tc90
    =>  -§{empty dossier}
        -preparation
            -*examiner1.CreateSendableAction."action135"
            -*examiner1.CheckAndSendAction."action135"
                =>  $actions := (action135)
            -§CONTINUE_NEXT_DAY
        -test
            -*examiner1.EditAction."action135"
            -*examiner1.CheckAndSendAction."action135"
                =>  $actions := (action135.NEW)

!+Tc93
    =>  -§{empty dossier}
        -preparation
            -*examiner1.CreateSendableAction."action135a"
            -*examiner1.CheckAndSendAction."action135a"
                =>  $actions := (action135a)
            -CONTINUE_NEXT_DAY
        -test
            -*examiner1.CreateSendableAction."action135"
            -*examiner1.CheckAndSendAction."action135"
                =>  $actions := (action135, action135a)

!+Tc96
    =>  -§{empty dossier}
        -preparation
            -*examiner1.CreateSendableAction."action131"
            -*examiner1.CheckAndSendAction."action131"
                =>  $actions := (action131)
        -test
            -*examiner1.CreateSendableAction."action135"
            -*examiner1.CheckAndSendAction."action135"
                =>  $actions := (action131, action135)

!+Tc106
    =>  -§{empty dossier}
        -preparation
            -*examiner2.CreateSendableAction."action211"
            -*examiner2.CheckAndSendAction."action211"
            -*examiner2.CreateSendableAction."action221"
            -*examiner2.CheckAndSendAction."action221"
            -*examiner2.CreateSendableAction."action231"
            -*examiner2.CheckAndSendAction."action231"
                =>  $actions := (action211, action221, action231)
        -test
            -*examiner1.CreateSendableAction."action131"
            -*examiner1.CheckAndSendAction."action131"
                =>  .$actions := (action131, action211, action221, action231)
            -*examiner1.CreateSendableAction."action121"
            -*examiner1.CheckAndSendAction."action121"
                =>  .$actions := (action121, action131, action211, action221, action231)
            -*examiner1.CreateSendableAction."action111"    // Administrator helps
            -*examiner1.CheckAndSendAction."action111"
                =>  -examiner1 << "Remove some of action121 or action131?"
                    -*examiner1.say."delete action121 and action131"
                        =>  .$actions := (action111, action211, action221, action231)


//
// A C T I O N S
//

!@examiner1.CreateSendableAction
    .$thisAction << EXTERN.{Action instance to create}
    =>  .*examiner1.NewAction << thisAction
        .*examiner1.MakeActionAcceptable << thisAction
            .{fill in data, so that checks will succeed}

!@examiner1.CheckAndSendAction
    .$thisAction << EXTERN.{Action instance to send}
    =>  .*examiner1.Check << thisAction
        .*examiner1.Send << thisAction


!@examiner2.CreateSendableAction
    .$thisAction << EXTERN.{Action instance to create}
    =>  .*examiner2.NewAction << thisAction
        .*examiner2.MakeActionAcceptable << thisAction
            .{fill in data, so that checks will succeed}

!@examiner2.CheckAndSendAction
    .$thisAction << EXTERN.{Action instance to send}
    =>  .*examiner2.Check << thisAction
        .*examiner2.Send << thisAction